home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / pay1pers.arc / EDITEMPS.PRG next >
Encoding:
Text File  |  1987-01-15  |  848 b   |  37 lines
  1. *** EDITEMPS.PRG (v. 2.6) 01/15/87
  2. *** Copyright @ 1987, Martin J. Michaelson
  3. CLEAR
  4. DO WHILE selectnum = 2
  5.     CLEAR
  6.     STORE SPACE(25) TO MNAME
  7.     @ 5,5 SAY 'ENTER EMPLOYEE NAME : ' GET MNAME
  8.     @ 6,17 SAY '( or <cr> to return to Main Menu )'
  9.     READ
  10.     IF MNAME = ' '
  11.         EXIT
  12.     ENDIF
  13.     SEEK TRIM(UPPER(MNAME))
  14.      IF EOF()
  15.         @ 8,5 SAY 'EMPLOYEE '+MNAME+' NOT FOUND'
  16.         ?
  17.         WAIT '          Press any key to continue...'
  18.         LOOP
  19.      ENDIF
  20.     STORE .T. TO again
  21.     DO WHILE again
  22.         set format to PAYX
  23.         READ
  24.         @21,0
  25.         WAIT SPACE(10) + 'ARE YOUR ENTRIES CORRECT? (Y/N) ' TO x
  26.         IF x $ 'Yy'
  27.           STORE .F. TO again
  28.         ENDIF
  29.         set format to
  30.      ENDDO while again
  31.         IF again
  32.           LOOP
  33.         ENDIF
  34. ENDDO
  35. CLEAR
  36. RETURN
  37.